Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/bbs_lord/life118d.zip/LIFE.ZIP/JOUSTTXT.DAT

Text File | 1996-03-12 | 17KB | 532 lines

@#Jousting
`<SetOptions>=[T,G,F,A,R]
`<Clear>
`0                           Jousting Center
`0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
`2  You are a brave warrior!  You seek out danger and excitement...
`2So you head out to the castle Jousting yards...ooh that looks
`2like it hurt!  Some poor fool just got knocked off his horse by the
`2spring loaded Jousting dummy.  I guess he just wasn't fast enough!
`2You see Lord Crismon go by...He manages to connect his lance
`2with the dummy and skillfully avoids the recoil...
`3<The crowd roars their approval!>
`2
`2          (`5T`2)ry to hit the dummy
`2          (`5G`2)o and try to spear the rings
`2          (`5F`2)ight the king's guards
`2          (`5A`2)ttack another player
`2          (`5R`2)eturn to the street
@#JoustingOptions?
`<SetMenu>=[Jousting]
@#JoustingOptionsT
`<NewLine>
`<NewLine>
`2  You hail Crismon!  And grab a lance from a nearby page...
`2You head out into the field...
`<NewLine>
`<if>=[(LHaveHorse),(TheUser),0,@#NoHorse]
`2  Crismon motions you toward the Jousting dummy...
`2
`5You pray you don't make a fool of yourself!
`2
`2You jump onto your horse and gallop off toward the Jousting dummy...
`2You manage to hit the Jousting dummy...
`<if>=[(FHadBeer),(TheUser),1,@#NoSuchLuck]
`<if>=[(FHadDrink),(TheUser),1,@#NoSuchLuck]
`5And you manage to avoid the recoil!
`3<The crowd cheers for YOU!>
`2A guard hands you a gold coin for your trouble
`<AddVal>=[(LordGold),(TheUser),1]
@#NoSuchLuck
`2
`2  Yaaaahhu`4uulcck!  Your roar of triumph is cut short
`4by the spiked ball of the Jousting dummy striking
`4you in the back...
`2
`2  The crowd giggles as you fall off your horse and
`2stumble about like a drunkard...
`4  You lose some experience in life
`<AddVal>=[(FLifeExp),(TheUser),-100]
`<ifless>=[(FLifeExp),(TheUser),1,`<SetVal>=[(FLifeExp),(TheUser),1]]
@#JoustingOptionsG
`<ifless>=[(FJoust),(TheUser),5,@#RingJoust]
`<NewLine>
`5  Sorry but you cannot Joust anymore today...
@#RingJoust
`<NewLine>
`<NewLine>
`<AddVal>=[(FJoust),(TheUser),1]
`2  You hail Crismon! And grab a lance from a nearby page...
`2You head out into the field...
`<NewLine>
`<if>=[(LHaveHorse),(TheUser),0,@#NoHorse]
`2
`5  You say you'd like to try to spear the rings...
`2
`2  Crismon motions for the rings to be hung
`2
`5You pray you don't make a fool of yourself!
`2
`2You jump onto your horse and gallop off toward the ringed target...
`2
`<Random>=[(TempInt0),(TheUser),2,100]
`<ifless>=[(TempInt0),(TheUser),10,@#AllRings]
`<ifless>=[(TempInt0),(TheUser),20,@#FiveRings]
`<ifless>=[(TempInt0),(TheUser),30,@#FourRings]
`<ifless>=[(TempInt0),(TheUser),60,@#ThreeRings]
`<ifless>=[(TempInt0),(TheUser),70,@#TwoRings]
`<ifless>=[(TempInt0),(TheUser),90,@#OneRing]
`5Unfortunately you miss all the rings
`3<The crowd bores of you>
`2A guard hands you a gold coin for your trouble
`<AddVal>=[(LordGold),(TheUser),1]
`<More>
`3  The jousting trainers hustle you from the grounds...you will
`3no longer be permitted to joust today...
`5  You meekly quit the field...sometimes these things
`5just don't turn out the way you plan.
`<SetVal>=[(FJoust),(TheUser),5]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU MISSED ALL THE RINGS IN JOUSTING]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),4]
@#AllRings
`5  You manage to spear `_All the rings!!!!
`3<The crowd goes `9wild`3>
`0You smile as you accept your reward...
`2You get 5 Gems
`<AddVal>=[(LGems),(TheUser),5]
`<AddVal>=[(LGems),(TheUser),3]
`<SetVal>=[(TempDbl1),(TheUser),(FLifeExp)]
`<DivVal>=[(TempDbl1),(TheUser),2]
`<Trunc>=[(TempDbl1),(TheUser)]
`<RetOff>
`2You get
`<Space>
`<PFormat>=[(TempDbl1),(TheUser)]
`2 LIFE experience!!
`<NewLine>
`<RetOn>
`<AddVal>=[(FLifeExp),(TheUser),(TempDbl1)]
`<SetVal>=[(TempDbl1),(TheUser),(FLifeGold)]
`<AddVal>=[(TempDbl1),(TheUser),(FLifeBank)]
`<DivVal>=[(TempDbl1),(TheUser),10]
`<Trunc>=[(TempDbl1),(TheUser)]
`<RetOff>
`2You get
`<Space>
`<PFormat>=[(TempDbl1),(TheUser)]
`2 LIFE dollars!!
`<NewLine>
`<RetOn>
`<AddVal>=[(FLifeGold),(TheUser),(TempDbl1)]
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU SPEARED ALL THE RINGS IN JOUSTING!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),9]
@#FiveRings
`5  You manage to spear `_five of the six rings!!!
`3<The crowd goes `9wild`3>
`0You smile as you accept your reward...
`2You get 3 Gems
`<AddVal>=[(LGems),(TheUser),3]
`<SetVal>=[(TempDbl1),(TheUser),(FLifeExp)]
`<DivVal>=[(TempDbl1),(TheUser),5]
`<Trunc>=[(TempDbl1),(TheUser)]
`<RetOff>
`2You get
`<Space>
`<PFormat>=[(TempDbl1),(TheUser)]
`2 LIFE experience!!
`<NewLine>
`<RetOn>
`<AddVal>=[(FLifeExp),(TheUser),(TempDbl1)]
`<SetVal>=[(TempDbl1),(TheUser),(FLifeGold)]
`<AddVal>=[(TempDbl1),(TheUser),(FLifeBank)]
`<DivVal>=[(TempDbl1),(TheUser),10]
`<Trunc>=[(TempDbl1),(TheUser)]
`<RetOff>
`2You get
`<Space>
`<PFormat>=[(TempDbl1),(TheUser)]
`2 LIFE dollars!!
`<NewLine>
`<RetOn>
`<AddVal>=[(FLifeGold),(TheUser),(TempDbl1)]
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU SPEARED FIVE OF THE SIX RINGS IN JOUSTING!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),3]
@#FourRings
`5  You manage to spear `_four of the six rings!!
`3<The crowd goes `9wild`3>
`0You smile as you accept your reward...
`2You get 3 Gems
`<AddVal>=[(LGems),(TheUser),3]
`<SetVal>=[(TempDbl1),(TheUser),(FLifeExp)]
`<DivVal>=[(TempDbl1),(TheUser),10]
`<Trunc>=[(TempDbl1),(TheUser)]
`<RetOff>
`2You get
`<Space>
`<PFormat>=[(TempDbl1),(TheUser)]
`2 LIFE experience!!
`<NewLine>
`<RetOn>
`<AddVal>=[(FLifeExp),(TheUser),(TempDbl1)]
`2You get 10,000,000 LIFE dollars!!
`<AddVal>=[(FLifeGold),(TheUser),10000000]
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU SPEARED FOUR RINGS IN JOUSTING]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#ThreeRings
`5  You manage to spear three of the six rings
`3<The crowd goes `9wild`3>
`0You smile as you accept your reward...
`2You get 2 Gems
`<AddVal>=[(LGems),(TheUser),2]
`<SetVal>=[(TempDbl1),(TheUser),(FLifeExp)]
`<DivVal>=[(TempDbl1),(TheUser),20]
`<Trunc>=[(TempDbl1),(TheUser)]
`<RetOff>
`2You get
`<Space>
`<PFormat>=[(TempDbl1),(TheUser)]
`2 LIFE experience!!
`<NewLine>
`<RetOn>
`<AddVal>=[(FLifeExp),(TheUser),(TempDbl1)]
`2You get 5,000,000 dollars in life!!
`<AddVal>=[(FLifeGold),(TheUser),5000000]
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU SPEARED THREE RINGS IN JOUSTING]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#TwoRings
`5  You manage to spear two of the six rings
`3<The crowd cheers for you>
`0You smile faintly as you accept your reward...
`2You get 1 Gem
`<AddVal>=[(LGems),(TheUser),1]
`<SetVal>=[(TempDbl1),(TheUser),(FLifeExp)]
`<DivVal>=[(TempDbl1),(TheUser),20]
`<Trunc>=[(TempDbl1),(TheUser)]
`<RetOff>
`2You get
`<Space>
`<PFormat>=[(TempDbl1),(TheUser)]
`2 LIFE experience!!
`<NewLine>
`<RetOn>
`<AddVal>=[(FLifeExp),(TheUser),(TempDbl1)]
`2You get 1,000,000 dollars in life!!
`<AddVal>=[(FLifeGold),(TheUser),1000000]
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU SPEARED TWO RINGS IN JOUSTING]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#OneRing
`5  You manage to spear one of the six rings
`3<The crowd cheers for you>
`2At least one is a lot better than none!!
`0You smile faintly as you accept your reward...
`2You get 1 gem
`<AddVal>=[(LGems),(TheUser),1]
`2You get 1,000 life exp
`<AddVal>=[(FLifeExp),(TheUser),1000]
`2You get 100,000 dollars in life!!
`<AddVal>=[(FLifeGold),(TheUser),100000]
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU SPEARED ONE RING IN JOUSTING]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#JoustingOptionsF
`<RetOn>
`<NewLine>
`2  You head out to the field determined to kick some royal butt!
`<NewLine>
`<if>=[(LHaveHorse),(TheUser),0,@#NoHorse]
`<SetVal>=[(TempDbl1),(TheUser),100]
`<Clear>
`<ifless>=[(FJoust),(TheUser),5,@#MyBattle]
`<NewLine>
`5  Sorry but you cannot Joust anymore today...
@#MyBattle
`<AddVal>=[(FJoust),(TheUser),1]
`<goto>=[@#GuardBattle]
@#GuardBattle
`<NewLine>
`<NewLine>
`2      **`_GUARD CHALLENGE`2***
`2  You face a guard...
`2
`2  (`5A`2)ttack
`2  (`5R`2)un
`2
`<RetOff>
`2What will you do...(A/R)? `0[`5A`0]:
`<Space>
`<GetAns>=[(TempStr0),AR,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),R,@#Abort]
`<ifless>=[(FLifeSkill),(TheUser),(TempDbl1),@#GuardWin]
`<NewLine>
`9You beat the guard...he soon yields!!
`2You get 1 gem
`<AddVal>=[(LGems),(TheUser),1]
`<RetOff>
`2YOU GET
`<Space>
`<PrintVal>=[(TempDbl1),(TheUser)]
`<AddVal>=[(FLifeExp),(TheUser),(TempDbl1)]
`<Space>
EXPERIENCE
`<NewLine>
`<RetOn>
`5  You take a moment to prepare for the next guard...
`<MultVal>=[(TempDbl1),(TheUser),5]
`<Goto>=[@#GuardBattle]
@#JoustingOptionsA
`<ifless>=[(FJoust),(TheUser),5,@#PlayerJoust]
`<NewLine>
`5  Sorry but you cannot Joust anymore today...
@#PlayerJoust
`<NewLine>
`2  You head out to the field determined to Win!
`<if>=[(LHaveHorse),(TheUser),0,@#NoHorse]
`<NewLine>
`<RetOff>
`2Who do you wish to `4attack`2?
`<Space>
`2>
`<LordIn>=[(TempStr0),70,100,2,(TheUser)]
`<RetOn>
`<if>=[(TempStr0),(TheUser),,@#Abort]
`<NewLine>
`<NewLine>
`<FindLifeUser>=[(TempStr0),(TheUser)]
`<NewLine>
`<if>=[(TempStr0),(TheUser),###NotFound###,@#UserNotFound]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<PrintVal>=[(TheUser),(TheUser)]
`<NewLine>
`<Clear>
`<NewLine>
`<AddVal>=[(FJoust),(TheUser),1]
`2   **`_USER BATTLE`2**
`<NewLine>
`<RetOn>
`2You both head out onto the field...
`2
`3Crismon motions you to your side of the fence...
`2
`5You prepare your lance and check the saddle of your war-horse...
`2
`<Goto>=[@#Charge]
@#Charge
`9  THE JUDGE MOTIONS FOR THE CHARGE TO COMMENCE...
`4...`1You begin your charge`4...
`4...`1Your opponent also begins to charge`4...
`2
`<Random>=[(TempInt1),(TheUser),1,100]
`<ifless>=[(TempInt1),(TheUser),5,@#BothLose]
`<ifless>=[(TempInt1),(TheUser),30,@#NotMiss]
`2
`2  both blows MISS...
`2
`2  (`5A`2)ttack!
`2  (`5R`2)un away wimp!
`2
`<RetOff>
`2What will you do...(A/R)? `0[`5A`0]:
`<Space>
`<GetAns>=[(TempStr3),AR,(TheUser)]
`<PrintVal>=[(TempStr3),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr3),(TheUser),R,@#Abort]
`2
`5  You return to your side and prepare for the next charge...
`<Goto>=[@#Charge]
@#BothLose
`2
`9  Your lance meets your opponent solidly!
`2Unfortunately your opponent's lance also manages to hit you!
`3You both fall form your horses...
`3Nobody wins anything...perhaps next time
`2
`<BreakIfNoMail>
`<SetVal>=[(TempStr3),(TheUser),YOU DECIDED TO JOUST WITH ]
`<AddVal>=[(TempStr3),(TempStr0),(LordNick)]
`<AddVal>=[(TempStr3),(TheUser),--You both lost]
`<FilePrint>=[(TempStr3),(TheUser),(TLordsDir),(TMailSlot),5]
@#NotMiss
`2
`$You and your opponent connect with a clash
`<SetVal>=[(TempDbl2),(TempStr0),(FLifeSkill)]
`<ifless>=[(FLifeSkill),(TheUser),(TempDbl2),@#YouLose]
`5
`5  You see your lance connect solidly against your opponent...
`5You chuckle in delight as your abilities are SUPERIOR!!!
`#  Your opponent's lance deals a glancing blow which you easily
`#deflect with your shield...
`<NewLine>
`2You gain whatever your opponent has on hand...
`<RetOff>
`<NewLine>
`2YOU GET
`<Space>
`<SetVal>=[(TempDbl3),(TempStr0),(LordGold)]
`<PrintVal>=[(TempDbl3),(TheUser)]
`<AddVal>=[(LordGold),(TheUser),(TempDbl3)]
`<SubVal>=[(LordGold),(TempStr0),(TempDbl3)]
`<Space>
`2LORD GOLD
`<NewLine>
`2YOU GET
`<Space>
`<SetVal>=[(TempDbl3),(TempStr0),(FLifeGold)]
`<PrintVal>=[(TempDbl3),(TheUser)]
`<AddVal>=[(FLifeGold),(TheUser),(TempDbl3)]
`<SubVal>=[(FLifeGold),(TempStr0),(TempDbl3)]
`<Space>
`2LIFE MONEY
`<NewLine>
`2YOU GET
`<Space>
`<SetVal>=[(TempDbl3),(TempStr0),(LGems)]
`<PrintVal>=[(TempDbl3),(TheUser)]
`<AddVal>=[(LGems),(TheUser),(TempDbl3)]
`<SubVal>=[(LGems),(TempStr0),(TempDbl3)]
`<Space>
`2Gems
`<NewLine>
`<RetOn>
`<SetVal>=[(TempStr2),(TheUser),`.                                `2-`0=`2-`0=`2-`0=`2-]
`<SetVal>=[(TempStr1),(TheUser),(LordNick)]
`<AddVal>=[(TempStr1),(TheUser), `2has won a jousting match with: ]
`<AddVal>=[(TempStr1),(TempStr0),(LordNick)]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),Lognow.txt,%]
`<SetVal>=[(TempStr3),(TempStr0),(LordNick)]
`<SetToRandLine>=[(TempStr1),(TheUser),(TLordsDir),goodsay.dat,(TempStr3)]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),Lognow.txt,2]
`<FilePrint>=[(TempStr2),(TheUser),(TLordsDir),Lognow.txt,2]
`<SetVal>=[(TempStr3),(TheUser),]
`<FilePrint>=[(TempStr3),(TheUser),(TLordsDir),Lognow.txt,2]
`<RetOn>
`<BreakIfNoMail>
`<SetVal>=[(TempStr3),(TheUser),YOU WON A JOUST WITH ]
`<AddVal>=[(TempStr3),(TempStr0),(LordNick)]
`<AddVal>=[(TempStr3),(TheUser),--You both lost]
`<FilePrint>=[(TempStr3),(TheUser),(TLordsDir),(TMailSlot),5]
@#YouLose
`4  You see your lance clash against your opponent...and be deflected!
`5Your abilities are not what you thought they were...
`#  Your opponent's lance deals a solid blow which comes at you too
`#fast for you to deflect with your shield...
`4You fall form your mount...
`<NewLine>
`2You lose whatever you had on hand...
`<RetOff>
`<NewLine>
`2YOU LOSE
`<Space>
`<SetVal>=[(TempDbl3),(TheUser),(LordGold)]
`<PrintVal>=[(TempDbl3),(TheUser)]
`<AddVal>=[(LordGold),(TempStr0),(TempDbl3)]
`<SubVal>=[(LordGold),(TheUser),(TempDbl3)]
`<Space>
`2LORD GOLD
`<NewLine>
`2YOU LOSE
`<Space>
`<SetVal>=[(TempDbl3),(TheUser),(FLifeGold)]
`<PrintVal>=[(TempDbl3),(TheUser)]
`<AddVal>=[(FLifeGold),(TempStr0),(TempDbl3)]
`<SubVal>=[(FLifeGold),(TheUser),(TempDbl3)]
`<Space>
`2LIFE MONEY
`<NewLine>
`2YOU LOSE
`<Space>
`<SetVal>=[(TempDbl3),(TheUser),(LGems)]
`<PrintVal>=[(TempDbl3),(TheUser)]
`<AddVal>=[(LGems),(TempStr0),(TempDbl3)]
`<SubVal>=[(LGems),(TheUser),(TempDbl3)]
`<Space>
`2Gems
`<NewLine>
`<More>
`<RetOn>
`3  The jousting trainers hustle you from the grounds...you will
`3no longer be permitted to joust today...
`5  You meekly quit the field...sometimes these things
`5just don't turn out the way you plan.
`<SetVal>=[(FJoust),(TheUser),5]
`<SetVal>=[(TempStr2),(TheUser),`.                                `2-`0=`2-`0=`2-`0=`2-]
`<SetVal>=[(TempStr1),(TheUser),(LordNick)]
`<AddVal>=[(TempStr1),(TheUser), `2has `4LOST`2 a jousting match with: ]
`<AddVal>=[(TempStr1),(TempStr0),(LordNick)]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),Lognow.txt,%]
`<SetVal>=[(TempStr3),(TempStr0),(LordNick)]
`<SetToRandLine>=[(TempStr1),(TheUser),(TLordsDir),badsay.dat,(TempStr3)]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),Lognow.txt,2]
`<FilePrint>=[(TempStr2),(TheUser),(TLordsDir),Lognow.txt,2]
`<SetVal>=[(TempStr3),(TheUser),]
`<FilePrint>=[(TempStr3),(TheUser),(TLordsDir),Lognow.txt,2]
`<RetOn>
`<BreakIfNoMail>
`<SetVal>=[(TempStr3),(TheUser),YOU LOST A JOUST WITH ]
`<AddVal>=[(TempStr3),(TempStr0),(LordNick)]
`<AddVal>=[(TempStr3),(TheUser),--You both lost]
`<FilePrint>=[(TempStr3),(TheUser),(TLordsDir),(TMailSlot),5]
@#JoustingOptionsR
`<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
@#JoustingOptions|
`<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
@#UserNotFound
`<NewLine>
`<RetOn>
`7User not found...
`2The user may not have been in lord life yet...
`2Or you may not have entered the name right...
`2Type less of the name if you are unsure...
@#UserNoInfo
`<NewLine>
`2Sorry...but that user has not entered their info yet.
`<NewLine>
@#Abort
`<NewLine>
`4Aborted!
`<NewLine>
@#NoFairy
`<NewLine>
`2  Sorry pal...but you do not have a fairy!
`<NewLine>
@#NSF
`2
`2Sorry...but you do not have enough money...
`3Go to the bank and get some money...or `4get lost!
@#NoHorse
`2
`2  You wonder why people are looking at you with
`2barely suppressed mirth...Until a guard comes up to you
`2and says "Uhh you need a horse to joust buddy...but
`2I hear you can buy one at the `1Royal Inn`2 from stablemaster
`2Taim.  Sorry but you'll have to quit the field until you
`2have a horse."
`2
`@  You quit the field with an unabashed red face.
@#YouNoHave
`2
`2WHAT!?! You do not have one!!!
@#GuardWin
`2
`4  The guard brings his sword down across your neck...
`2You know that you have finally lost...
`3  But you also know you can try again tomorrow...
`3  The jousting trainers hustle you from the grounds...you will
`3no longer be permitted to joust today...
`5  You meekly quit the field...sometimes these things
`5just don't turn out the way you plan.
`<SetVal>=[(FJoust),(TheUser),5]
@#ENDOFFILE